home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / amos / sticktest.lha / sticktest.amos / sticktest.amosSourceCode < prev   
AMOS Source Code  |  1999-03-03  |  449b  |  24 lines
  1. Hide : Curs Off : Flash Off 
  2. Unpack 2 To 0
  3. J=0
  4. Repeat 
  5.    If Joy(J)=8
  6.       Bob 0,132,120,2
  7.    Else If Joy(J)=4
  8.       Bob 0,102,120,4
  9.    Else If Joy(J)=1
  10.       Bob 0,125,98,1
  11.    Else If Joy(J)=2
  12.       Bob 0,124,127,3
  13.    Else If Joy(J)=5
  14.       Bob 0,110,104,5
  15.    Else If Joy(J)=9
  16.       Bob 0,131,105,6
  17.    Else If Joy(J)=6
  18.       Bob 0,108,125,8
  19.    Else If Joy(J)=10
  20.       Bob 0,131,126,7
  21.    Else If Joy(J)=16
  22.       Boom 
  23.    End If 
  24. Until Key State(69)